﻿Imports MySql.Data.MySqlClient
Imports MySql.Data
Public Class MySQLConexao
    Private StringConnection As String = "Server=127.0.0.1; Database=sgr; Uid=root; Pwd=root;"
    Public Function Connection() As MySqlConnection
        Dim contemp As New MySql.Data.MySqlClient.MySqlConnection(StringConnection)
        If contemp.State = ConnectionState.Open Then contemp.Close()
        contemp.Open()
        Return contemp
    End Function

End Class
